home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
programr
/
ole2book.zip
/
CHAP07.ZIP
/
CHAP07
/
SCHMOO
/
SCHMOO.CPP
< prev
next >
Wrap
C/C++ Source or Header
|
1993-06-15
|
15KB
|
658 lines
/*
* SCHMOO.CPP
* Chapter 7 Modifications
* WinMain and CSchmooFrame implementations.
*
* Copyright (c)1993 Microsoft Corporation, All Rights Reserved
*
* Kraig Brockschmidt, Software Design Engineer
* Microsoft Systems Developer Relations
*
* Internet : kraigb@microsoft.com
* Compuserve: >INTERNET:kraigb@microsoft.com
*/
#define INITGUIDS
#include "schmoo.h"
/*
* WinMain
*
* Purpose:
* Main entry point of application. Should register the app class
* if a previous instance has not done so and do any other one-time
* initializations.
*/
int PASCAL WinMain (HINSTANCE hInst, HINSTANCE hPrev, LPSTR pszCmdLine, int nCmdShow)
{
LPCSchmooFrame pFR;
FRAMEINIT fi;
WPARAM wRet;
#ifndef WIN32
SetMessageQueue(96);
#endif
//Attempt to allocate and initialize the application
pFR=new CSchmooFrame(hInst, hPrev, pszCmdLine, nCmdShow);
fi.idsMin=IDS_FRAMEMIN;
fi.idsMax=IDS_FRAMEMAX;
fi.idsStatMin=IDS_STATMESSAGEMIN;
fi.idsStatMax=IDS_STATMESSAGEMAX;
fi.idStatMenuMin=ID_MENUFILE;
fi.idStatMenuMax=ID_MENUHELP;
fi.iPosWindowMenu=WINDOW_MENU;
fi.cMenus=CMENUS;
//If we can initialize pFR, start chugging messages
if (pFR->FInit(&fi))
wRet=pFR->MessageLoop();
delete pFR;
return wRet;
}
/*
* CSchmooFrame::CSchmooFrame
* CSchmooFrame::~CSchmooFrame
*
* Constructor Parameters:
* hInst HINSTANCE from WinMain
* hInstPrev HINSTANCE from WinMain
* pszCmdLine LPSTR from WinMain
* nCmdShow int from WInMain
*/
CSchmooFrame::CSchmooFrame(HINSTANCE hInst, HINSTANCE hInstPrev
, LPSTR pszCmdLine, int nCmdShow)
: CFrame(hInst, hInstPrev, pszCmdLine, nCmdShow)
{
UINT i;
for (i=0; i<5; i++)
m_hBmpLines[i]=NULL;
m_fInitialized=FALSE;
return;
}
CSchmooFrame::~CSchmooFrame(void)
{
UINT i;
for (i=0; i<5; i++)
DeleteObject(m_hBmpLines[i]);
//CHAPTER7MOD
OleFlushClipboard();
//End CHAPTER7MOD
if (m_fInitialized)
OleUninitialize();
return;
}
/*
* CSchmooFrame::FInit
*
* Purpose:
* Call CoInitialize then calling down into the base class
* initialization.
*
* Parameters:
* pFI LPFRAMEINIT containing initialization parameters.
*
* Return Value:
* BOOL TRUE if initialization succeeded, FALSE otherwise.
*/
BOOL CSchmooFrame::FInit(LPFRAMEINIT pFI)
{
DWORD dwVer;
//We need OLE versions of Initialize for Clipboard
dwVer=OleBuildVersion();
if (rmm!=HIWORD(dwVer))
return FALSE;
if (FAILED(OleInitialize(NULL)))
return FALSE;
m_fInitialized=TRUE;
return CFrame::FInit(pFI);
}
/*
* CSchmooFrame::CreateCClient
*
* Purpose:
* Constructs a new client specific to the application.
*
* Parameters:
* None
*
* Return Value:
* LPCClient Pointer to the new client object.
*/
LPCClient CSchmooFrame::CreateCClient(void)
{
return (LPCClient)(new CSchmooClient(m_hInst));
}
/*
* CSchmooFrame::FRegisterAllClasses
*
* Purpose:
* Registers all classes used in this application.
*
* Parameters:
* None
*
* Return Value:
* BOOL TRUE if registration succeeded, FALSE otherwise.
*/
BOOL CSchmooFrame::FRegisterAllClasses(void)
{
WNDCLASS wc;
//First let the standard frame do its thing
if (!CFrame::FRegisterAllClasses())
return FALSE;
wc.style = CS_HREDRAW | CS_VREDRAW;
wc.hInstance = m_hInst;
wc.cbClsExtra = 0;
wc.lpfnWndProc = PolylineWndProc;
wc.cbWndExtra = CBPOLYLINEWNDEXTRA;
wc.hIcon = NULL;
wc.hCursor = LoadCursor(NULL, IDC_CROSS);
wc.hbrBackground = NULL;
wc.lpszMenuName = NULL;
wc.lpszClassName = SZCLASSPOLYLINE;
if (!RegisterClass(&wc))
return FALSE;
return TRUE;
}
/*
* CSchmooFrame::FPreShowInit
*
* Purpose:
* Called from FInit before intially showing the window. We do whatever
* else we want here, modifying nCmdShow as necessary which affects
* ShowWindow in FInit.
*
* Parameters:
* None
*
* Return Value:
* BOOL TRUE if this initialization succeeded, FALSE otherwise.
*/
BOOL CSchmooFrame::FPreShowInit(void)
{
CreateLineMenu();
CheckLineSelection(IDM_LINESOLID);
m_pGB->Check(IDM_LINESOLID, TRUE);
return TRUE;
}
/*
* CSchmooFrame::CreateLineMenu
*
* Purpose:
* Initializes the bitmaps used to create the Line menu and replaces
* the text items defined in the application resources with these
* bitmaps. Note that the contents of m_hBmpLines must be cleaned
* up when the application terminates.
*
* Parameters:
* None
*
* Return Value:
* None
*/
void CSchmooFrame::CreateLineMenu(void)
{
HMENU hMenu;
HDC hDC, hMemDC;
HPEN hPen;
HGDIOBJ hObj;
TEXTMETRIC tm;
UINT i, cx, cy;
hMenu=GetSubMenu(GetMenu(m_hWnd), 3); //Line menu.
hDC=GetDC(m_hWnd);
//Create each line in a menu item 8 chars wide, one char high.
GetTextMetrics(hDC, &tm);
cx=tm.tmAveCharWidth*8;
cy=tm.tmHeight;
//Create a memory DC in which to draw lines, and bitmaps for each line.
hMemDC=CreateCompatibleDC(hDC);
ReleaseDC(m_hWnd, hDC);
for (i=0; i<5; i++)
{
m_hBmpLines[i]=CreateCompatibleBitmap(hMemDC, cx, cy);
SelectObject(hMemDC, m_hBmpLines[i]);
PatBlt(hMemDC, 0, 0, cx, cy, WHITENESS);
hPen=CreatePen(i, 1, 0L); //i==line style like PS_SOLID
hObj=SelectObject(hMemDC, hPen);
MoveTo(hMemDC, 0, cy/2);
LineTo(hMemDC, cx, cy/2);
ModifyMenu(hMenu, IDM_LINEMIN+i, MF_BYCOMMAND | MF_BITMAP
, IDM_LINEMIN+i, (LPCSTR)MAKELONG(m_hBmpLines[i], 0));
SelectObject(hMemDC, hObj);
DeleteObject(hPen);
}
CheckMenuItem(hMenu, IDM_LINESOLID, MF_CHECKED);
DeleteDC(hMemDC);
return;
}
/*
* CSchmooFrame::CreateGizmos
*
* Purpose:
* Procedure to create all the necessary gizmobar buttons.
*
* Parameters:
* None
*
* Return Value:
* UINT Number of gizmos added to the bar.
*/
UINT CSchmooFrame::CreateGizmos(void)
{
UINT iLast;
UINT uState=GIZMO_NORMAL;
UINT utCmd =GIZMOTYPE_BUTTONCOMMAND;
UINT utEx =GIZMOTYPE_BUTTONATTRIBUTEEX;
//Insert the standard ones.
iLast=CFrame::CreateGizmos();
//Insert File Import in the 5th position and account for it in iLast.
m_pGB->Add(utCmd, 4, IDM_FILEIMPORT, m_dxB, m_dyB, NULL, m_hBmp, 2, uState);
iLast++;
//Separator
m_pGB->Add(GIZMOTYPE_SEPARATOR, iLast++, 0, 6, m_dyB, NULL, NULL, 0, uState);
//For the Background bitmap, preserve our use of black (part of the image)
m_pGB->Add(utCmd, iLast++, IDM_COLORBACKGROUND, m_dxB, m_dyB, NULL, m_hBmp, 3
, GIZMO_NORMAL | PRESERVE_BLACK);
m_pGB->Add(utCmd, iLast++, IDM_COLORLINE, m_dxB, m_dyB, NULL, m_hBmp, 4, uState);
//Separator
m_pGB->Add(GIZMOTYPE_SEPARATOR, iLast++, 0, 6, m_dyB, NULL, NULL, 0, uState);
//Line styles.
m_pGB->Add(utEx, iLast++, IDM_LINESOLID, m_dxB, m_dyB, NULL, m_hBmp, 5, uState);
m_pGB->Add(utEx, iLast++, IDM_LINEDASH, m_dxB, m_dyB, NULL, m_hBmp, 6, uState);
m_pGB->Add(utEx, iLast++, IDM_LINEDOT, m_dxB, m_dyB, NULL, m_hBmp, 7, uState);
m_pGB->Add(utEx, iLast++, IDM_LINEDASHDOT, m_dxB, m_dyB, NULL, m_hBmp, 8, uState);
m_pGB->Add(utEx, iLast++, IDM_LINEDASHDOTDOT, m_dxB, m_dyB, NULL, m_hBmp, 9, uState);
return iLast;
}
/*
* CSchmooFrame::OnCommand
*
* Purpose:
* WM_COMMAND handler for the Schmoo frame window that just processes
* the line menu and the color menu leaving the CFrame to do everything
* else.
*
* Parameters:
* hWnd HWND of the frame window.
* wParam WPARAM of the message.
* lParam LPARAM of the message.
*
* Return Value:
* LRESULT Return value for the message.
*/
LRESULT CSchmooFrame::OnCommand(HWND hWnd, WPARAM wParam, LPARAM lParam)
{
LPCSchmooDoc pDoc;
char szFile[CCHPATHMAX];
BOOL fOK;
UINT i, uTemp;
COLORREF rgColors[16];
CHOOSECOLOR cc;
COMMANDPARAMS(wID, wCode, hWndMsg);
/*
* Don't bother with anything during first initialization,
* skipping many GizmoBar notifications.
*/
if (m_fInit)
return 0L;
pDoc=(LPCSchmooDoc)m_pCL->ActiveDocument();
/*
* Check for the line style commands which are IDM_LINEMIN+<style>.
* We handle this by changing the menu and toolbar, then we pass
* it to the document for real processing.
*/
if (NULL!=pDoc && IDM_LINEMIN <= wID && IDM_LINEMAX >=wID)
{
CheckLineSelection(wID);
pDoc->LineStyleSet(wID-IDM_LINEMIN);
return 0L;
}
switch (wID)
{
case IDM_FILEIMPORT:
szFile[0]=0;
fOK=FSaveOpenDialog(szFile, CCHPATHMAX, IDS_FILEIMPORT, TRUE, &i);
if (fOK)
{
uTemp=pDoc->ULoad(FALSE, szFile);
pDoc->ErrorMessage(uTemp);
}
return (LRESULT)fOK;
case IDM_COLORBACKGROUND:
case IDM_COLORLINE:
//Invoke the color chooser for either color
uTemp=(IDM_COLORBACKGROUND==wID)
? DOCCOLOR_BACKGROUND : DOCCOLOR_LINE;
for (i=0; i<16; i++)
rgColors[i]=RGB(0, 0, i*16);
memset(&cc, 0, sizeof(CHOOSECOLOR));
cc.lStructSize=sizeof(CHOOSECOLOR);
cc.lpCustColors=rgColors;
cc.hwndOwner=hWnd;
cc.Flags=CC_RGBINIT;
cc.rgbResult=pDoc->ColorGet(uTemp);
if (ChooseColor(&cc))
pDoc->ColorSet(uTemp, cc.rgbResult);
break;
default:
CFrame::OnCommand(hWnd, wParam, lParam);
}
return 0L;
}
/*
* CSchmooFrame::OnDocumentDataChange
*
* Purpose:
* Update the Line menu and GizmoBar if the style in the data changes.
*
* Parameters:
* pDoc LPCDocument notifying the sink.
*
* Return Value:
* None
*/
void CSchmooFrame::OnDocumentDataChange(LPCDocument pDoc)
{
CheckLineSelection(IDM_LINEMIN+((LPCSchmooDoc)pDoc)->LineStyleGet());
return;
}
/*
* CSchmooFrame::OnDocumentActivate
*
* Purpose:
* Informs us that document activation changed, so update the UI for
* that new document.
*
* Parameters:
* pDoc LPCDocument notifying the sink.
*
* Return Value:
* None
*/
void CSchmooFrame::OnDocumentActivate(LPCDocument pDoc)
{
CheckLineSelection(IDM_LINEMIN+((LPCSchmooDoc)pDoc)->LineStyleGet());
return;
}
/*
* CSchmooFrame::UpdateMenus
*
* Purpose:
* Handles the WM_INITMENU message for the frame window. Depending
* on the existence of an active window, menu items are selectively
* enabled and disabled.
*
* Parameters:
* hMenu HMENU of the menu to intialize
* iMenu UINT position of the menu.
*
* Return Value:
* None
*/
void CSchmooFrame::UpdateMenus(HMENU hMenu, UINT iMenu)
{
LPCDocument pDoc;
BOOL fOK=FALSE;
BOOL fCallDefault=TRUE;
UINT i;
UINT uTemp;
UINT uTempE;
UINT uTempD;
pDoc=m_pCL->ActiveDocument();
uTempE=MF_ENABLED | MF_BYCOMMAND;
uTempD=MF_DISABLED | MF_GRAYED | MF_BYCOMMAND;
uTemp=((NULL!=pDoc) ? uTempE : uTempD);
//File menu: If there is no current document window, disable Import.
if (m_phMenu[0]==hMenu)
EnableMenuItem(hMenu, IDM_FILEIMPORT, uTemp);
//Color menu: no document, no commands
if (m_phMenu[2]==hMenu)
{
EnableMenuItem(hMenu, IDM_COLORBACKGROUND, uTemp);
EnableMenuItem(hMenu, IDM_COLORLINE, uTemp);
fCallDefault=FALSE;
}
//Line menu: no document, no commands
if (m_phMenu[3]==hMenu)
{
for (i=IDM_LINEMIN; i<=IDM_LINEMAX; i++)
EnableMenuItem(hMenu, i, uTemp);
fCallDefault=FALSE;
}
if (fCallDefault)
CFrame::UpdateMenus(hMenu, iMenu);
return;
}
/*
* CSchmooFrame::UpdateGizmos
*
* Purpose:
* Enables and disables gizmos depending on whether we have
* a document or not.
*
* Parameters:
* None
*
* Return Value:
* None
*/
void CSchmooFrame::UpdateGizmos(void)
{
LPCDocument pDoc;
BOOL fEnable;
UINT i;
//Let the default hack on its gizmos.
CFrame::UpdateGizmos();
pDoc=m_pCL->ActiveDocument();
fEnable=(NULL!=pDoc);
//No document, disable just about everything
m_pGB->Enable(IDM_FILEIMPORT, fEnable);
m_pGB->Enable(IDM_COLORBACKGROUND, fEnable);
m_pGB->Enable(IDM_COLORLINE, fEnable);
for (i=IDM_LINEMIN; i <= IDM_LINEMAX; i++)
m_pGB->Enable(i, fEnable);
return;
}
/*
* CSchmooFrame::CheckLineSelection
*
* Purpose:
* Maintains the bitmap menu and the gizmos for the line selection. Both
* are mutially exclusive option lists where a selection in one has to
* affect the other.
*
* Parameters:
* uID UINT ID of the item to be selected
*
* Return Value:
* None
*/
void CSchmooFrame::CheckLineSelection(UINT uID)
{
UINT i;
HMENU hMenu;
LPCDocument pDoc;
hMenu=GetMenu(m_hWnd);
//Uncheck all lines initially.
for (i=IDM_LINEMIN; i<=IDM_LINEMAX; i++)
CheckMenuItem(hMenu, i, MF_UNCHECKED | MF_BYCOMMAND);
CheckMenuItem(hMenu, uID, MF_CHECKED | MF_BYCOMMAND);
m_pGB->Check(uID, TRUE);
pDoc=m_pCL->ActiveDocument();
m_pGB->Enable(uID, (NULL!=pDoc));
return;
}